Cigar Companion Interactive/Cigar Companion Interactive.iso/pc/cigars.dxr/TOPICS_214.ls

Text File | 1997-08-27 | 388 b | 17 lines

on initColorWheel
  initKnob(4, 0, 0, 7, 12, 360, "showColors", 7, 1)
  puppetTheSprite([7, 8])
end

on showColors
  set nextMember to 7 + the number of member the member of sprite 7
  if the number of member the member of sprite 8 <> nextMember then
    playAnySound("wooshFast")
    set the member of sprite 8 to member nextMember
    updateStage()
  end if
end

on showColorsreset
end